﻿
Public Class FrmLike
    Dim mouseOffset As Point
    Private Sub _MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
        mouseOffset = New Point(-e.X, -e.Y)
    End Sub

    Private Sub _MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        If e.Button = MouseButtons.Left Then
            Dim mousePos = Control.MousePosition
            mousePos.Offset((mouseOffset.X), (mouseOffset.Y))
            Location = mousePos
        End If
    End Sub

    Private Sub BtnLike_Click(sender As Object, e As EventArgs) Handles BtnLike.Click
        Process.Start(FacebookPage)
        Me.Close()
    End Sub

    Private Sub FrmLike_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class